Top.asp 6KBBS ASP版 V7.1 - ASP源码程序

www.gusucode.com > 6KBBS ASP版 V7.1 > 6KBBS ASP版 V7.1\code\bbs\Top.asp
    <!--#include file="conn.asp"--><%call closedb%>
<%
dim style,Cssstyleid,plugin
style=application(prefix&"style")
style=replace(style,"<a href=","<option value=")
style=replace(style,"</a><br>","</option>")

plugin=application(prefix&"plugin")
plugin=replace(plugin,"<a href=","<option value=")
plugin=replace(plugin,"</a><br>","</option>")

Cssstyleid=request.cookies(prefix&"1")("styleid")

%>
<head>
<link rel=stylesheet type=text/css href=inc/css.css>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="skin/<%=Cssstyleid%>/global.css">
<base target="contents">
</head>
<script>
function userfun()
{
	var getindex=document.getElementById('usertools').selectedIndex;
	if (getindex>0)
	{
		document.getElementById('usertools').options[0].selected=true;
		parent.frames.main.focus();
		var getfun=document.getElementById('usertools').options[getindex].value;
		parent.frames.main.location=getfun;
	}
}


function userstyle()
{

	var getindex=document.getElementById("styleid").selectedIndex;
	if (getindex>0)
	{
		var getfun=document.getElementById('styleid').options[getindex].value;
		window.parent.top.location=getfun;
		//top.location=getfun;
	}
}

function userplugin()
{
	var getindex=document.getElementById('pluginid').selectedIndex;
	if (getindex>0)
	{
		document.getElementById('pluginid').options[0].selected=true;
		var getfun=document.getElementById('pluginid').options[getindex].value;
		parent.frames.main.location=getfun;
	}
}


function usermode()
{
	var getindex=document.getElementById('modeid').selectedIndex;
	if (getindex>1)
	{
		var getfun=document.getElementById('modeid').options[getindex].value;
		top.location=getfun;
	}
}

</script>
<body class=topbody>
	<div class=top>
		<div class=toplogo><img border="0" src="images/smalllogo.gif"></div>
		<div class=topword>
			<select id="usertools" size="1" onchange="userfun()"><option selected>论坛功能</option><option value="Otherlist.asp?action=today">今日新帖</option><option value="Otherlist.asp?action=good">论坛精华</option><option value="userlist.asp">用户列表</option><option value="search.asp">论坛搜索</option><option value="bbsshow.asp">论坛展区</option></select>
			<select id="modeid" size="1"  onchange="usermode()"><option selected>论坛模式</option><option>框架模式</option><option value="cookies.asp?action=bbsmode&mode=2">平板模式</option></select>
			<select id="styleid" size="1"  onchange="userstyle()"><option selected>论坛皮肤</option><%=style%></select>
			<%if plugin<>"" then%><select id="pluginid" size="1"  onchange="userplugin()"><option selected>论坛插件</option><%=plugin%></select><%end if%>
		</div>
	</div>
</body>